<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<title>Template Units For Numerical Applications</title>
<link href="TUNAstyles.css" rel="stylesheet" type="text/css">
<link href="tabs.css" rel="stylesheet" type="text/css">
<style type="text/css">

.cabeza_cell {
  border-left: 1px solid #000000;
  border-right: 1px solid #000000;
  border-bottom: 1px solid #000000;
  border-top: 1px solid #000000;
  font-family: Arial,Helvetica,sans-serif;
  font-size: 11pt;
  background-color: #ffffff;
  font-weight: lighter;
  color: #000000;
  text-decoration: none;
}
</style>

</head><body>
<div>
<table align="center" width="640" border="0" cellspacing="2" cellpadding="5" class="border">
<tr>
 <td class="cabeza_cell"> 

  <font style="font-family: helvetica; color: #000000;" size=4>
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>TUNA</font> :
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>T</font>emplate
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>U</font>nits for
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>N</font>umerical 
    <font style="font-family: helvetica; color: #336699; font-weight=bold" size=5>A</font>pplications
 </font><br>
  
</td>
</tr>

<tr>
<td class="cabeza_cell">
 <span style="font-family: helvetica; color: #336699;">
 Documentation Ver 1.0.0 August 2011 by
 <a href="http://mmc.geofisica.unam.mx/luiggi">Luis M. de la Cruz</a> <br>
 <a href="http://mmc.geofisica.unam.mx"> GMMC </a> -
 <a href="http://www.geofisica.unam.mx/recnat/"> Depto. de Recursos Naturales </a> -
 <a href="http://www.geofisica.unam.mx"> Instituto de Geof&iacute;sica </a> -
 <a href="http://www.unam.mx"> UNAM </a><br>
 </span>
 </td>

</tr>

</table>
</div>
<br>
<!-- Generated by Doxygen 1.7.4 -->
<script type="text/javascript"><!--
var searchBox = new SearchBox("searchBox", "search",false,'Search');
--></script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="annotated.html"><span>Classes</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li id="searchli">
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>File&#160;Members</span></a></li>
    </ul>
  </div>
<div class="header">
  <div class="headertitle">
<div class="title">Examples/06ConvDiff/convdiff6.cpp</div>  </div>
</div>
<div class="contents">
<a href="convdiff6_8cpp.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 
<a name="l00043"></a>00043 <span class="preprocessor">#include &lt;cmath&gt;</span>
<a name="l00044"></a>00044 <span class="preprocessor">#include &lt;algorithm&gt;</span>
<a name="l00045"></a>00045 
<a name="l00046"></a>00046 <span class="preprocessor">#include &quot;Meshes/Uniform.hpp&quot;</span>
<a name="l00047"></a>00047 <span class="preprocessor">#include &quot;Equations/ScalarEquation.hpp&quot;</span>
<a name="l00048"></a>00048 <span class="preprocessor">#include &quot;Schemes/CDS_CoDi.hpp&quot;</span>
<a name="l00049"></a>00049 <span class="preprocessor">#include &quot;Equations/Momentum_XCoDi.hpp&quot;</span>
<a name="l00050"></a>00050 <span class="preprocessor">#include &quot;Schemes/CDS_XCoDi.hpp&quot;</span>
<a name="l00051"></a>00051 <span class="preprocessor">#include &quot;Equations/Momentum_YCoDi.hpp&quot;</span>
<a name="l00052"></a>00052 <span class="preprocessor">#include &quot;Schemes/CDS_YCoDi.hpp&quot;</span>
<a name="l00053"></a>00053 <span class="preprocessor">#include &quot;Equations/Momentum_ZCoDi.hpp&quot;</span>
<a name="l00054"></a>00054 <span class="preprocessor">#include &quot;Schemes/CDS_ZCoDi.hpp&quot;</span>
<a name="l00055"></a>00055 <span class="preprocessor">#include &quot;Equations/PressureCorrection.hpp&quot;</span>
<a name="l00056"></a>00056 <span class="preprocessor">#include &quot;Schemes/Simplec.hpp&quot;</span>
<a name="l00057"></a>00057 <span class="preprocessor">#include &quot;Solvers/TDMA.hpp&quot;</span>
<a name="l00058"></a>00058 <span class="preprocessor">#include &quot;Utils/inout.hpp&quot;</span> 
<a name="l00059"></a>00059 <span class="preprocessor">#include &quot;Utils/num_utils.hpp&quot;</span>
<a name="l00060"></a>00060 <span class="preprocessor">#include &quot;Utils/GNUplot.hpp&quot;</span>
<a name="l00061"></a>00061 <span class="preprocessor">#include &quot;Utils/diff_operators.hpp&quot;</span>
<a name="l00062"></a>00062 <span class="keyword">using namespace </span>Tuna;
<a name="l00063"></a>00063 
<a name="l00064"></a>00064 <span class="comment">// Scalar field in one dimension</span>
<a name="l00065"></a>00065 <span class="keyword">typedef</span> <a class="code" href="structTuna_1_1TunaArray.html#af3bcab5018eec3d7697c9fb03ad89157" title="Definition of big arrays to store scalar fields on meshes.">TunaArray&lt;double,3&gt;::huge</a> ScalarField3D;
<a name="l00066"></a>00066 
<a name="l00067"></a>00067 <span class="preprocessor">#define PI 3.14159265358979323846</span>
<a name="l00068"></a>00068 <span class="preprocessor"></span>
<a name="l00069"></a>00069 <span class="comment">//</span>
<a name="l00070"></a>00070 <span class="comment">// DT = 0.0001</span>
<a name="l00071"></a>00071 <span class="comment">//</span>
<a name="l00072"></a>00072 <span class="comment">//   int intervalo_1 = 50, intervalo_2 = 300;</span>
<a name="l00073"></a>00073 <span class="comment">//</span>
<a name="l00074"></a>00074 <span class="comment">// DT = 0.00001</span>
<a name="l00075"></a>00075 <span class="comment">//</span>
<a name="l00076"></a>00076 <span class="comment">//int intervalo_1 = 500, intervalo_2 = 3000;</span>
<a name="l00077"></a>00077 <span class="comment">//</span>
<a name="l00078"></a>00078 <span class="comment">// DT = 0.00001</span>
<a name="l00079"></a>00079 <span class="comment">//</span>
<a name="l00080"></a>00080 <span class="comment">//int intervalo_1 = 5000, intervalo_2 = 30000;</span>
<a name="l00081"></a>00081 
<a name="l00082"></a>00082 <span class="keywordtype">int</span> intervalo_1, intervalo_2;
<a name="l00083"></a>00083 <span class="keywordtype">double</span> freq;
<a name="l00084"></a>00084 <span class="keywordtype">int</span> ciclo;
<a name="l00085"></a>00085 
<a name="l00086"></a>00086 <span class="keyword">inline</span> <span class="keywordtype">void</span> boundaryConditions(ScalarField3D &amp;T, <span class="keywordtype">int</span> iteracion){
<a name="l00087"></a>00087 
<a name="l00088"></a>00088     <span class="keywordtype">int</span> i,hot_up, hot_flat, hot_down;
<a name="l00089"></a>00089     <span class="keywordtype">int</span> it1 = intervalo_1;
<a name="l00090"></a>00090     <span class="keywordtype">int</span> it2 = it1 + intervalo_2;
<a name="l00091"></a>00091     <span class="keywordtype">int</span> it3 = it2 + intervalo_1;
<a name="l00092"></a>00092     <span class="keywordtype">double</span> thot, tcol;
<a name="l00093"></a>00093 
<a name="l00094"></a>00094     <span class="keywordtype">int</span> cuarto_de_ciclo,octavo_de_ciclo,medio_ciclo;
<a name="l00095"></a>00095     <span class="keywordtype">int</span> op1,op2,op3;
<a name="l00096"></a>00096     
<a name="l00097"></a>00097     <span class="keywordtype">int</span> num_vols_x = T.ubound(firstDim) + 1;
<a name="l00098"></a>00098     <span class="keywordtype">int</span> num_vols_z = T.ubound(thirdDim) + 1;
<a name="l00099"></a>00099     Range I1(0,num_vols_x / 2 - 1), I2(num_vols_x / 2, num_vols_x-1);
<a name="l00100"></a>00100     Range K1(0,num_vols_z / 2 - 1), K2(num_vols_z / 2, num_vols_z-1);
<a name="l00101"></a>00101 
<a name="l00102"></a>00102     hot_up = hot_flat = hot_down = 0;
<a name="l00103"></a>00103     thot = tcol = 0.0;
<a name="l00104"></a>00104 
<a name="l00105"></a>00105     medio_ciclo = ciclo /2;
<a name="l00106"></a>00106     cuarto_de_ciclo = ciclo /4;
<a name="l00107"></a>00107     octavo_de_ciclo = ciclo/8;
<a name="l00108"></a>00108 
<a name="l00109"></a>00109     op1 = iteracion % ciclo;
<a name="l00110"></a>00110     op2 = op1 % cuarto_de_ciclo;
<a name="l00111"></a>00111     op3 = op2 % octavo_de_ciclo;
<a name="l00112"></a>00112 
<a name="l00113"></a>00113     <span class="comment">/* up,flat,  or down*/</span>
<a name="l00114"></a>00114      <span class="keywordflow">if</span> (0 &lt; op3 and op3 &lt;= it1){
<a name="l00115"></a>00115           hot_up = 1;
<a name="l00116"></a>00116           i = op3;
<a name="l00117"></a>00117      }
<a name="l00118"></a>00118      <span class="keywordflow">else</span> <span class="keywordflow">if</span> (it1 &lt; op3 and op3 &lt;= it2){
<a name="l00119"></a>00119           hot_flat = 1;
<a name="l00120"></a>00120           i=op3-it1;
<a name="l00121"></a>00121      }
<a name="l00122"></a>00122      <span class="keywordflow">else</span> <span class="keywordflow">if</span> (it2 &lt; op3 and op3 &lt;= it3 ){
<a name="l00123"></a>00123           hot_down = 1;
<a name="l00124"></a>00124           i=op3-it2;
<a name="l00125"></a>00125      }
<a name="l00126"></a>00126      
<a name="l00127"></a>00127     <span class="comment">/* thot or tcold */</span>
<a name="l00128"></a>00128     <span class="comment">/* default: hot side is active */</span>
<a name="l00129"></a>00129     thot =  0.5 * ( hot_up * sin(freq*i) * sin(freq*i) +
<a name="l00130"></a>00130                     hot_flat +
<a name="l00131"></a>00131                     hot_down * sin(freq*(intervalo_1+i)) * 
<a name="l00132"></a>00132                                sin(freq*(intervalo_1+i)) );
<a name="l00133"></a>00133 
<a name="l00134"></a>00134     tcol = 0;
<a name="l00135"></a>00135 
<a name="l00136"></a>00136      <span class="comment">/* if cold side is active */</span>
<a name="l00137"></a>00137      <span class="keywordflow">if</span> (octavo_de_ciclo &lt; op2 and op2 &lt;= cuarto_de_ciclo or op2 == 0) {
<a name="l00138"></a>00138         tcol = -thot;
<a name="l00139"></a>00139         thot = 0;
<a name="l00140"></a>00140      }
<a name="l00141"></a>00141 
<a name="l00142"></a>00142      <span class="comment">/* 1 2 3 or 4 sector */</span>
<a name="l00143"></a>00143      <span class="keywordflow">if</span> (0 &lt; op1 and op1 &lt;= cuarto_de_ciclo){
<a name="l00144"></a>00144         T(I2, T.lbound(secondDim),K1) = thot;
<a name="l00145"></a>00145         T(I1, T.ubound(secondDim),K2) = tcol;
<a name="l00146"></a>00146      }
<a name="l00147"></a>00147      <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( cuarto_de_ciclo &lt; op1 and op1 &lt;= medio_ciclo){
<a name="l00148"></a>00148         T(I2, T.lbound(secondDim),K2) = thot;
<a name="l00149"></a>00149         T(I1, T.ubound(secondDim),K1) = tcol;
<a name="l00150"></a>00150      }
<a name="l00151"></a>00151      <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( medio_ciclo &lt; op1 and op1 &lt;= 3*cuarto_de_ciclo){
<a name="l00152"></a>00152         T(I1, T.lbound(secondDim),K2) = thot;
<a name="l00153"></a>00153         T(I2, T.ubound(secondDim),K1) = tcol;
<a name="l00154"></a>00154      }
<a name="l00155"></a>00155      <span class="keywordflow">else</span> <span class="keywordflow">if</span> ( 3*cuarto_de_ciclo &lt; op1 and op1 &lt;= ciclo or op1 == 0){
<a name="l00156"></a>00156         T(I1, T.lbound(secondDim),K1) = thot;
<a name="l00157"></a>00157         T(I2, T.ubound(secondDim),K2) = tcol;
<a name="l00158"></a>00158      }
<a name="l00159"></a>00159 }
<a name="l00160"></a>00160 
<a name="l00161"></a>00161 <span class="keyword">template</span>&lt;<span class="keyword">class</span> T_energy, <span class="keyword">class</span> T_xmom, <span class="keyword">class</span> T_ymom, <span class="keyword">class</span> T_zmom, <span class="keyword">class</span> T_press&gt;
<a name="l00162"></a>00162 <span class="keywordtype">double</span> SIMPLEC(T_energy &amp;, T_xmom &amp;, T_ymom &amp;, T_zmom &amp;, T_press &amp;, 
<a name="l00163"></a>00163                <span class="keywordtype">int</span>, <span class="keywordtype">double</span>);
<a name="l00164"></a>00164 
<a name="l00165"></a>00165 <span class="keywordtype">double</span> errorT, errorX, errorY, errorZ,errorP;
<a name="l00166"></a>00166 
<a name="l00167"></a>00167 <span class="keywordtype">int</span> main() 
<a name="l00168"></a>00168 {
<a name="l00169"></a>00169 
<a name="l00170"></a>00170     <span class="keywordtype">double</span> lambda, Amplitud;
<a name="l00171"></a>00171     <span class="keywordtype">double</span> top_wall, bot_wall;
<a name="l00172"></a>00172     <span class="keywordtype">double</span> longitud_x, longitud_y,longitud_z;
<a name="l00173"></a>00173     <span class="keywordtype">int</span> num_nodos_x, num_nodos_y,num_nodos_z;
<a name="l00174"></a>00174     <span class="keywordtype">double</span> tolerancia, dt;    
<a name="l00175"></a>00175     <span class="keywordtype">int</span> max_iter, iteraciones_max, frecuencia;
<a name="l00176"></a>00176     <span class="keywordtype">double</span> alpha_p, alpha_u, alpha_v,alpha_w;
<a name="l00177"></a>00177     <span class="keywordtype">double</span> Prandtl, Rayleigh;
<a name="l00178"></a>00178 
<a name="l00179"></a>00179     <span class="keywordtype">int</span> imon, jmon,kmon;
<a name="l00180"></a>00180 
<a name="l00181"></a>00181 <span class="comment">// Reading data from the input file</span>
<a name="l00182"></a>00182     std::ifstream input_cin (<span class="stringliteral">&quot;input6&quot;</span>);
<a name="l00183"></a>00183     input_cin &gt;&gt; longitud_x
<a name="l00184"></a>00184               &gt;&gt; longitud_y
<a name="l00185"></a>00185               &gt;&gt; longitud_z
<a name="l00186"></a>00186               &gt;&gt; num_nodos_x
<a name="l00187"></a>00187               &gt;&gt; num_nodos_y
<a name="l00188"></a>00188               &gt;&gt; num_nodos_z
<a name="l00189"></a>00189               &gt;&gt; top_wall
<a name="l00190"></a>00190               &gt;&gt; bot_wall
<a name="l00191"></a>00191               &gt;&gt; dt
<a name="l00192"></a>00192               &gt;&gt; iteraciones_max
<a name="l00193"></a>00193               &gt;&gt; tolerancia
<a name="l00194"></a>00194               &gt;&gt; max_iter
<a name="l00195"></a>00195               &gt;&gt; Prandtl
<a name="l00196"></a>00196               &gt;&gt; Rayleigh
<a name="l00197"></a>00197               &gt;&gt; frecuencia
<a name="l00198"></a>00198               &gt;&gt; intervalo_1
<a name="l00199"></a>00199               &gt;&gt; intervalo_2;
<a name="l00200"></a>00200 
<a name="l00201"></a>00201     freq = PI / (2 * intervalo_1); 
<a name="l00202"></a>00202     ciclo = 4*(4 * intervalo_1 + 2 * intervalo_2);
<a name="l00203"></a>00203 <span class="comment">//</span>
<a name="l00204"></a>00204 <span class="comment">//  Linear System </span>
<a name="l00205"></a>00205 <span class="comment">//</span>
<a name="l00206"></a>00206     SparseMatrix&lt; Diagonal&lt;double, 3&gt; &gt; A(num_nodos_x, num_nodos_y, num_nodos_z); 
<a name="l00207"></a>00207     ScalarField3D             b(num_nodos_x, num_nodos_y, num_nodos_z);
<a name="l00208"></a>00208 <span class="comment">//</span>
<a name="l00209"></a>00209 <span class="comment">//  Mesh definition</span>
<a name="l00210"></a>00210 <span class="comment">//</span>
<a name="l00211"></a>00211     <a class="code" href="classTuna_1_1StructuredMesh.html" title="General structured meshes on rectangular domains.">StructuredMesh&lt;Uniform&lt;double, 3&gt;</a> &gt; malla(longitud_x, num_nodos_x, 
<a name="l00212"></a>00212                                               longitud_y, num_nodos_y,
<a name="l00213"></a>00213                                               longitud_z, num_nodos_z);
<a name="l00214"></a>00214     malla.print();
<a name="l00215"></a>00215     <span class="keywordtype">double</span> dx = malla.getDelta(X);
<a name="l00216"></a>00216     <span class="keywordtype">double</span> dy = malla.getDelta(Y);
<a name="l00217"></a>00217     <span class="keywordtype">double</span> dz = malla.getDelta(Z);
<a name="l00218"></a>00218     <span class="keywordtype">int</span> num_vols_x = malla.getExtentVolumes(X);
<a name="l00219"></a>00219     <span class="keywordtype">int</span> num_vols_y = malla.getExtentVolumes(Y);  
<a name="l00220"></a>00220     <span class="keywordtype">int</span> num_vols_z = malla.getExtentVolumes(Z);  
<a name="l00221"></a>00221 <span class="comment">//</span>
<a name="l00222"></a>00222 <span class="comment">//  Scalar fields definitions (in volumes centers)</span>
<a name="l00223"></a>00223 <span class="comment">//</span>
<a name="l00224"></a>00224     ScalarField3D T(malla.getExtentVolumes());      <span class="comment">// Temperature</span>
<a name="l00225"></a>00225     ScalarField3D p(malla.getExtentVolumes());      <span class="comment">// pressure</span>
<a name="l00226"></a>00226     ScalarField3D pp(malla.getExtentVolumes());     <span class="comment">// pressure correction</span>
<a name="l00227"></a>00227     ScalarField3D u(malla.getExtentVolumes());      <span class="comment">// u-velocity</span>
<a name="l00228"></a>00228     ScalarField3D v(malla.getExtentVolumes());      <span class="comment">// v-velocity</span>
<a name="l00229"></a>00229     ScalarField3D w(malla.getExtentVolumes());      <span class="comment">// w-velocity</span>
<a name="l00230"></a>00230     ScalarField3D us(num_nodos_x, num_vols_y,num_vols_z); <span class="comment">// u-velocity staggered</span>
<a name="l00231"></a>00231     ScalarField3D vs(num_vols_x, num_nodos_y,num_vols_z); <span class="comment">// v-velocity staggered</span>
<a name="l00232"></a>00232     ScalarField3D ws(num_vols_x, num_vols_y,num_nodos_z); <span class="comment">// w-velocity staggered</span>
<a name="l00233"></a>00233 <span class="comment">//</span>
<a name="l00234"></a>00234 <span class="comment">//  Scalar fields definitions for printing (in nodes)</span>
<a name="l00235"></a>00235 <span class="comment">//</span>
<a name="l00236"></a>00236     ScalarField3D Tn(malla.getExtentNodes());      <span class="comment">// Temperature</span>
<a name="l00237"></a>00237     ScalarField3D pn(malla.getExtentNodes());      <span class="comment">// pressure</span>
<a name="l00238"></a>00238     ScalarField3D un(malla.getExtentNodes());      <span class="comment">// u-velocity</span>
<a name="l00239"></a>00239     ScalarField3D vn(malla.getExtentNodes());      <span class="comment">// v-velocity</span>
<a name="l00240"></a>00240     ScalarField3D wn(malla.getExtentNodes());      <span class="comment">// w-velocity</span>
<a name="l00241"></a>00241     ScalarField3D vorx(malla.getExtentNodes());   <span class="comment">// vorticity</span>
<a name="l00242"></a>00242     ScalarField3D vory(malla.getExtentNodes());   <span class="comment">// vorticity</span>
<a name="l00243"></a>00243     ScalarField3D vorz(malla.getExtentNodes());   <span class="comment">// vorticity</span>
<a name="l00244"></a>00244 <span class="comment">//</span>
<a name="l00245"></a>00245 <span class="comment">// Energy equation definition</span>
<a name="l00246"></a>00246 <span class="comment">//</span>
<a name="l00247"></a>00247     <a class="code" href="classTuna_1_1ScalarEquation.html" title="This class derives from GeneralEquation through B &amp; N trick.">ScalarEquation&lt;CDS_CoDi&lt;double,3&gt;</a> &gt; energia(T, A, b, malla.getDeltas());
<a name="l00248"></a>00248     energia.setGamma(1.0);
<a name="l00249"></a>00249     energia.setDeltaTime(dt);
<a name="l00250"></a>00250     energia.setNeumann(LEFT_WALL, 0.0);
<a name="l00251"></a>00251     energia.setNeumann(RIGHT_WALL, 0.0);
<a name="l00252"></a>00252     energia.setNeumann(FRONT_WALL, 0.0);
<a name="l00253"></a>00253     energia.setNeumann(BACK_WALL, 0.0);
<a name="l00254"></a>00254     energia.setDirichlet(TOP_WALL);
<a name="l00255"></a>00255     energia.setDirichlet(BOTTOM_WALL);
<a name="l00256"></a>00256     energia.setUvelocity(us);
<a name="l00257"></a>00257     energia.setVvelocity(vs);
<a name="l00258"></a>00258     energia.setWvelocity(ws);
<a name="l00259"></a>00259     energia.print();
<a name="l00260"></a>00260 <span class="comment">//</span>
<a name="l00261"></a>00261 <span class="comment">// Momentum-x equation definition</span>
<a name="l00262"></a>00262 <span class="comment">//</span>
<a name="l00263"></a>00263     <a class="code" href="classTuna_1_1Momentum__XCoDi.html" title="This class derives from GeneralEquation through B &amp; N trick.">Momentum_XCoDi&lt;CDS_XCoDi&lt;double, 3&gt;</a> &gt; momento_x(us, A, b, malla.getDeltas());
<a name="l00264"></a>00264     momento_x.setGamma(Prandtl);
<a name="l00265"></a>00265     momento_x.setDeltaTime(dt);
<a name="l00266"></a>00266     momento_x.setDirichlet(LEFT_WALL, 0);
<a name="l00267"></a>00267     momento_x.setDirichlet(RIGHT_WALL, 0);
<a name="l00268"></a>00268     momento_x.setDirichlet(TOP_WALL, 0);
<a name="l00269"></a>00269     momento_x.setDirichlet(BOTTOM_WALL, 0);
<a name="l00270"></a>00270     momento_x.setDirichlet(FRONT_WALL, 0);
<a name="l00271"></a>00271     momento_x.setDirichlet(BACK_WALL, 0);
<a name="l00272"></a>00272     momento_x.setUvelocity(us);
<a name="l00273"></a>00273     momento_x.setVvelocity(vs);
<a name="l00274"></a>00274     momento_x.setWvelocity(ws);
<a name="l00275"></a>00275     momento_x.setPressure(p);
<a name="l00276"></a>00276     momento_x.print();
<a name="l00277"></a>00277 <span class="comment">//    </span>
<a name="l00278"></a>00278 <span class="comment">// Momentum-y equation definition</span>
<a name="l00279"></a>00279 <span class="comment">//</span>
<a name="l00280"></a>00280     <a class="code" href="classTuna_1_1Momentum__YCoDi.html" title="This class derives from GeneralEquation through B &amp; N trick.">Momentum_YCoDi&lt;CDS_YCoDi&lt;double, 3&gt;</a> &gt; momento_y(vs, A, b, malla.getDeltas());
<a name="l00281"></a>00281     momento_y.setGamma(Prandtl);
<a name="l00282"></a>00282     momento_y.setDeltaTime(dt);
<a name="l00283"></a>00283     momento_y.setDirichlet(LEFT_WALL, 0);
<a name="l00284"></a>00284     momento_y.setDirichlet(RIGHT_WALL, 0);
<a name="l00285"></a>00285     momento_y.setDirichlet(TOP_WALL, 0);
<a name="l00286"></a>00286     momento_y.setDirichlet(BOTTOM_WALL, 0);
<a name="l00287"></a>00287     momento_y.setDirichlet(FRONT_WALL, 0);
<a name="l00288"></a>00288     momento_y.setDirichlet(BACK_WALL, 0);
<a name="l00289"></a>00289     momento_y.setUvelocity(us);
<a name="l00290"></a>00290     momento_y.setVvelocity(vs);
<a name="l00291"></a>00291     momento_y.setWvelocity(ws);
<a name="l00292"></a>00292     momento_y.setPressure(p);
<a name="l00293"></a>00293     momento_y.setTemperature(T);
<a name="l00294"></a>00294     momento_y.setRayleigh(Rayleigh);
<a name="l00295"></a>00295     momento_y.print();
<a name="l00296"></a>00296 <span class="comment">//    </span>
<a name="l00297"></a>00297 <span class="comment">// Momentum-z equation definition</span>
<a name="l00298"></a>00298 <span class="comment">//</span>
<a name="l00299"></a>00299     <a class="code" href="classTuna_1_1Momentum__ZCoDi.html" title="This class derives from GeneralEquation through B &amp; N trick.">Momentum_ZCoDi&lt;CDS_ZCoDi&lt;double, 3&gt;</a> &gt; momento_z(ws, A, b, malla.getDeltas());
<a name="l00300"></a>00300     momento_z.setGamma(Prandtl);
<a name="l00301"></a>00301     momento_z.setDeltaTime(dt);
<a name="l00302"></a>00302     momento_z.setDirichlet(LEFT_WALL, 0);
<a name="l00303"></a>00303     momento_z.setDirichlet(RIGHT_WALL, 0);
<a name="l00304"></a>00304     momento_z.setDirichlet(TOP_WALL, 0);
<a name="l00305"></a>00305     momento_z.setDirichlet(BOTTOM_WALL, 0);
<a name="l00306"></a>00306     momento_z.setDirichlet(FRONT_WALL, 0);
<a name="l00307"></a>00307     momento_z.setDirichlet(BACK_WALL, 0);
<a name="l00308"></a>00308     momento_z.setUvelocity(us);
<a name="l00309"></a>00309     momento_z.setVvelocity(vs);
<a name="l00310"></a>00310     momento_z.setWvelocity(ws);
<a name="l00311"></a>00311     momento_z.setPressure(p);
<a name="l00312"></a>00312     momento_z.print();
<a name="l00313"></a>00313 <span class="comment">//</span>
<a name="l00314"></a>00314 <span class="comment">// Pressure equation definition</span>
<a name="l00315"></a>00315 <span class="comment">//</span>
<a name="l00316"></a>00316     <a class="code" href="classTuna_1_1PressureCorrection.html" title="This class derives from GeneralEquation through B &amp; N trick.">PressureCorrection&lt;Simplec&lt;double, 3&gt;</a> &gt; presion(pp, A, b, malla.getDeltas());
<a name="l00317"></a>00317     presion.applyBounds(1, num_nodos_x-1, 1, num_nodos_y-1, 1,num_nodos_z-1);
<a name="l00318"></a>00318     presion.setUvelocity(us);
<a name="l00319"></a>00319     presion.setVvelocity(vs);
<a name="l00320"></a>00320     presion.setWvelocity(ws);
<a name="l00321"></a>00321     presion.set_du(momento_x.get_du());
<a name="l00322"></a>00322     presion.set_dv(momento_y.get_dv());
<a name="l00323"></a>00323     presion.set_dw(momento_z.get_dw());
<a name="l00324"></a>00324     presion.setPressure(p);
<a name="l00325"></a>00325     presion.print();
<a name="l00326"></a>00326 
<a name="l00327"></a>00327     ofstream sorsumfile(<span class="stringliteral">&quot;./Data6/sorsum&quot;</span>), 
<a name="l00328"></a>00328         nusselt_hot_file(<span class="stringliteral">&quot;./Data6/nuh&quot;</span>), nusselt_cold_file(<span class="stringliteral">&quot;./Data6/nuc&quot;</span>),
<a name="l00329"></a>00329         umon_file(<span class="stringliteral">&quot;./Data6/umon&quot;</span>), vmon_file(<span class="stringliteral">&quot;./Data6/vmon&quot;</span>), 
<a name="l00330"></a>00330         wmon_file(<span class="stringliteral">&quot;./Data6/wmon&quot;</span>), Tmon_file(<span class="stringliteral">&quot;./Data6/tmon&quot;</span>), 
<a name="l00331"></a>00331         pmon_file(<span class="stringliteral">&quot;./Data6/pmon&quot;</span>),
<a name="l00332"></a>00332         errorTfile(<span class="stringliteral">&quot;./Data6/errorT&quot;</span>), errorPfile(<span class="stringliteral">&quot;./Data6/errorP&quot;</span>),
<a name="l00333"></a>00333         errorXfile(<span class="stringliteral">&quot;./Data6/errorX&quot;</span>), errorYfile(<span class="stringliteral">&quot;./Data6/errorY&quot;</span>),
<a name="l00334"></a>00334         errorZfile(<span class="stringliteral">&quot;./Data6/errorZ&quot;</span>);
<a name="l00335"></a>00335 
<a name="l00336"></a>00336     <span class="keywordtype">double</span> sorsum, resorm, nuh, nuc;
<a name="l00337"></a>00337     
<a name="l00338"></a>00338     <span class="keywordtype">int</span> iteracion;
<a name="l00339"></a>00339 
<a name="l00340"></a>00340     NumUtils::interpolateToNodes(Tn, T);
<a name="l00341"></a>00341     NumUtils::interpolateToNodes(pn, p);
<a name="l00342"></a>00342     NumUtils::interpolateToNodesUs(un, us);
<a name="l00343"></a>00343     NumUtils::interpolateToNodesVs(vn, vs);
<a name="l00344"></a>00344     NumUtils::interpolateToNodesWs(wn, ws);
<a name="l00345"></a>00345     InOut::writeToFile_DX(pn, 0, <span class="stringliteral">&quot;./Data6/pres.&quot;</span>, dx, dy, dz);
<a name="l00346"></a>00346     InOut::writeToFile_DX(T, 0, <span class="stringliteral">&quot;./Data6/temp.&quot;</span>, dx, dy, dz);
<a name="l00347"></a>00347     InOut::writeToFile_DX(un, vn, wn, 0 , <span class="stringliteral">&quot;./Data6/velc.&quot;</span>, dx, dy, dz);
<a name="l00348"></a>00348     
<a name="l00349"></a>00349     <span class="keywordflow">for</span>(iteracion = 1; iteracion &lt;= iteraciones_max; ++iteracion) {
<a name="l00350"></a>00350         boundaryConditions(T, iteracion);
<a name="l00351"></a>00351         energia.updatePhi(T);
<a name="l00352"></a>00352         
<a name="l00353"></a>00353         sorsum = SIMPLEC(energia, momento_x, momento_y, momento_z, presion,
<a name="l00354"></a>00354                          max_iter, tolerancia);
<a name="l00355"></a>00355 
<a name="l00356"></a>00356         <span class="keywordflow">if</span> ( !(iteracion % frecuencia) ) {
<a name="l00357"></a>00357             NumUtils::interpolateToNodes(Tn, T);
<a name="l00358"></a>00358             NumUtils::interpolateToNodes(pn, p);
<a name="l00359"></a>00359             NumUtils::interpolateToNodesUs(un, us);
<a name="l00360"></a>00360             NumUtils::interpolateToNodesVs(vn, vs);
<a name="l00361"></a>00361             NumUtils::interpolateToNodesWs(wn, ws);
<a name="l00362"></a>00362 
<a name="l00363"></a>00363             InOut::writeToFile_DX(Tn, iteracion, <span class="stringliteral">&quot;./Data6/temp.&quot;</span>, dx, dy, dz);
<a name="l00364"></a>00364             InOut::writeToFile_DX(pn, iteracion, <span class="stringliteral">&quot;./Data6/pres.&quot;</span>, dx, dy, dz);
<a name="l00365"></a>00365             InOut::writeToFile_DX(un, vn, wn, iteracion, <span class="stringliteral">&quot;./Data6/velc.&quot;</span>, dx, dy, dz);
<a name="l00366"></a>00366 
<a name="l00367"></a>00367             DiffOperators::vorticity(vorx,vory,vorz, un, vn, wn, dx, dy, dz);
<a name="l00368"></a>00368             InOut::writeToFile_DX(vorx, vory, vorz, iteracion, <span class="stringliteral">&quot;./Data6/vort.&quot;</span>, dx,dy,dz);
<a name="l00369"></a>00369 
<a name="l00370"></a>00370         }
<a name="l00371"></a>00371 
<a name="l00372"></a>00372         <span class="keywordflow">if</span>(!(iteracion % 1)) { 
<a name="l00373"></a>00373           
<a name="l00374"></a>00374           sorsumfile &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; sorsum &lt;&lt; endl;
<a name="l00375"></a>00375           <span class="comment">/***</span>
<a name="l00376"></a>00376 <span class="comment">              nuh = NumUtils::calcNusselt(T, dx, dy, dz,0);</span>
<a name="l00377"></a>00377 <span class="comment">              nusselt_hot_file &lt;&lt; iteracion &lt;&lt; &quot;\t&quot; &lt;&lt; nuh &lt;&lt; endl;</span>
<a name="l00378"></a>00378 <span class="comment">          ***/</span>
<a name="l00379"></a>00379 
<a name="l00380"></a>00380           errorTfile &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; errorT &lt;&lt; endl;
<a name="l00381"></a>00381           errorPfile &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; errorP &lt;&lt; endl;
<a name="l00382"></a>00382           errorXfile &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; errorX &lt;&lt; endl;
<a name="l00383"></a>00383           errorYfile &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; errorY &lt;&lt; endl;
<a name="l00384"></a>00384           errorZfile &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; errorZ &lt;&lt; endl;
<a name="l00385"></a>00385 
<a name="l00386"></a>00386           umon_file &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; un(imon,jmon,kmon) &lt;&lt; endl;
<a name="l00387"></a>00387           vmon_file &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; vn(imon,jmon,kmon) &lt;&lt; endl;
<a name="l00388"></a>00388           wmon_file &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; wn(imon,jmon,kmon) &lt;&lt; endl;
<a name="l00389"></a>00389           Tmon_file &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; Tn(imon,jmon,kmon) &lt;&lt; endl;
<a name="l00390"></a>00390           pmon_file &lt;&lt; iteracion &lt;&lt; <span class="stringliteral">&quot;\t&quot;</span> &lt;&lt; pn(imon,jmon,kmon) &lt;&lt; endl;
<a name="l00391"></a>00391           
<a name="l00392"></a>00392           cout &lt;&lt; <span class="stringliteral">&quot;=&gt; Iter = &quot;</span> &lt;&lt; iteracion 
<a name="l00393"></a>00393                &lt;&lt; <span class="stringliteral">&quot; s = &quot;</span> &lt;&lt; sorsum 
<a name="l00394"></a>00394                &lt;&lt; <span class="stringliteral">&quot; nuc = &quot;</span> &lt;&lt; nuc 
<a name="l00395"></a>00395                &lt;&lt; <span class="stringliteral">&quot; nuh = &quot;</span> &lt;&lt; nuh &lt;&lt; endl
<a name="l00396"></a>00396                &lt;&lt; <span class="stringliteral">&quot; e_T = &quot;</span> &lt;&lt; errorT
<a name="l00397"></a>00397                &lt;&lt; <span class="stringliteral">&quot; e_P = &quot;</span> &lt;&lt; errorP
<a name="l00398"></a>00398                &lt;&lt; <span class="stringliteral">&quot; e_X = &quot;</span> &lt;&lt; errorX
<a name="l00399"></a>00399                &lt;&lt; <span class="stringliteral">&quot; e_Y = &quot;</span> &lt;&lt; errorY &lt;&lt; endl;
<a name="l00400"></a>00400         }
<a name="l00401"></a>00401     }
<a name="l00402"></a>00402 
<a name="l00403"></a>00403     std::cout &lt;&lt; <span class="stringliteral">&quot;\n\n NOTE: The data were written in the [./Data6] directory in DX format&quot;</span>;
<a name="l00404"></a>00404 
<a name="l00405"></a>00405     <span class="keywordflow">return</span> 0;
<a name="l00406"></a>00406 }
<a name="l00407"></a>00407 
<a name="l00408"></a>00408 <span class="keyword">template</span>&lt;<span class="keyword">class</span> T_energy, <span class="keyword">class</span> T_xmom, <span class="keyword">class</span> T_ymom, <span class="keyword">class</span> T_zmom, <span class="keyword">class</span> T_press&gt;
<a name="l00409"></a>00409 <span class="keywordtype">double</span> SIMPLEC(T_energy &amp;energy, T_xmom &amp;xmomentum, 
<a name="l00410"></a>00410                T_ymom &amp;ymomentum, T_zmom &amp;zmomentum, T_press &amp;pressure, 
<a name="l00411"></a>00411                <span class="keywordtype">int</span> max_iter, <span class="keywordtype">double</span> tolerancia)
<a name="l00412"></a>00412 {
<a name="l00413"></a>00413     <span class="keywordtype">double</span> sorsum = 10.0, tolerance = 1e-2;
<a name="l00414"></a>00414     <span class="keywordtype">int</span> counter = 0;
<a name="l00415"></a>00415 
<a name="l00416"></a>00416     <span class="keywordflow">while</span> ( (sorsum &gt; tolerance) &amp;&amp; (counter &lt; 20) ) {
<a name="l00417"></a>00417         energy.calcCoefficients();
<a name="l00418"></a>00418         Solver::TDMA3D(energy, tolerancia, max_iter);
<a name="l00419"></a>00419         errorT = energy.calcErrorL1();
<a name="l00420"></a>00420         energy.update();
<a name="l00421"></a>00421 
<a name="l00422"></a>00422         xmomentum.calcCoefficients();
<a name="l00423"></a>00423         Solver::TDMA3D(xmomentum, tolerancia, max_iter);
<a name="l00424"></a>00424         errorX = xmomentum.calcErrorL1();
<a name="l00425"></a>00425         xmomentum.update();
<a name="l00426"></a>00426 
<a name="l00427"></a>00427         ymomentum.calcCoefficients();
<a name="l00428"></a>00428         Solver::TDMA3D(ymomentum, tolerancia, max_iter);
<a name="l00429"></a>00429         errorY = ymomentum.calcErrorL1();
<a name="l00430"></a>00430         ymomentum.update();
<a name="l00431"></a>00431 
<a name="l00432"></a>00432         zmomentum.calcCoefficients();
<a name="l00433"></a>00433         Solver::TDMA3D(zmomentum, tolerancia, max_iter);
<a name="l00434"></a>00434         errorZ = zmomentum.calcErrorL1();
<a name="l00435"></a>00435         zmomentum.update();
<a name="l00436"></a>00436 
<a name="l00437"></a>00437         pressure.calcCoefficients();
<a name="l00438"></a>00438         Solver::TDMA3D(pressure, tolerancia, max_iter);
<a name="l00439"></a>00439         pressure.correction();
<a name="l00440"></a>00440         sorsum = fabs( pressure.calcSorsum() );
<a name="l00441"></a>00441         
<a name="l00442"></a>00442         ++counter;
<a name="l00443"></a>00443     }
<a name="l00444"></a>00444 
<a name="l00445"></a>00445     <span class="keywordflow">return</span> sorsum;
<a name="l00446"></a>00446     
<a name="l00447"></a>00447 }
<a name="l00448"></a>00448 
</pre></div></div>
</div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Classes</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Typedefs</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>



<hr size="1">
<div align="center">
Last modification: Sun Aug 28 09:57:21 CDT 2011
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&copy; 2011 LMCS-UNAM
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Generated by <a href="http://www.doxygen.org/index.html">
<img src="doxygen.png" alt="doxygen" align="top" border="0" height="25"></a> 1.6.1 </div>

